my $file = $ARGV[0];

open Input, "<$file" or die"cannot open $file\n";
open Output, ">test.log" or die "cannot open test.log\n";
$number = 0;
$firstline = 1;
$start = 0;
$end = 0;

$total = 0;
@rssi[200];
while(<Input>){
	chomp;
	@rs = split;
	
	$rssi[$total++] = $rs[1];
	
}
close Input;

	for($i=0;$i<200;$i++) {
		print Output "$i $rssi[$i]\n";
	}
close Output;
